home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok70.lha / PL0 / errors.pl0 < prev    next >
Text File  |  1993-08-15  |  276b  |  18 lines

  1. CONST M := 0, N = 100  o = oh;
  2. VAR ,a,b,c;
  3. PROCEDURE P;
  4. BEGIN s := 0; a = 5 *(b-1 END;
  5.  
  6. BEGIN
  7.   ?a ? b;
  8.   WHILE a-0 DO
  9.   BEGIN
  10.     ?b; -c := 0;
  11.     WHILE a > 0 BEGIN
  12.       IF ODD a c := c * -b;
  13.       b := 2*b  a := a/2;
  14.     END;
  15.     P := 0; P;
  16.   CALL P; CALL 666; CALL a;
  17. END
  18.